Set Director$Menu Close
DirectorMouseDir Path -file
Set Director$SwitchMenu <Director$Window>
If "%0" <> "" Then Set Director$SwitchMenu %0

If "%0" <> "" Then Set handle %0
If "%0" =  "" Then SWI Wimp_Initialise 310 &4B534154 "Temp" TO z handle
If "%0" =  "" Then SWI Wimp_SendMessage 19 "Message" <Director$Window> TO z z task
If "%0" =  "" Then SWI TaskManager_TaskNameFromHandle <task> TO task$
If "%0" =  "" Then SWI Wimp_CloseDown handle &4B534154

Menu "Window" "<Director$Menu>" -temp
If "%0" = "" Then Option	"Open files" -sub "Dynamic:/Director:Menus.System.Openfiles"
If "%0" = "" Then Option	"Windows" -sub "Dynamic:/Director:Menus.System.Switch -do submenu -window <Director$SwitchMenu>"
If "%0" = "" Then Dash
	Option "Iconise"
		Command /Director:Menus.System.DoClose -do Iconise -window <Director$SwitchMenu>
	Option "Pin"
		Command /Director:Menus.System.DoClose -do Pin -window <Director$SwitchMenu>
Dash
	Option "Top"
		Command /Director:Menus.System.DoClose -do Top -window <Director$SwitchMenu>
	Option "Bottom"
		Command /Director:Menus.System.DoClose -do Bottom -window <Director$SwitchMenu>
Dash
	Option	"Close"
		Command	/Director:Menus.System.DoClose -do Close -window <Director$SwitchMenu>
	Option	"Close All (app)"
		Command	/Director:Menus.System.DoClose -do CloseAll -window <Director$SwitchMenu>
Dash
If "<task$>"<>"Filer" Then MenuProcessing Off
	Option "Full Info by date"
		Command /Director:Menus.System.DoWin -opt "-FI -SD" -window <Director$SwitchMenu>
	Option "Small Icons by name"
		Command /Director:Menus.System.DoWin -opt "-SI -SN" -window <Director$SwitchMenu>
MenuProcessing On
	Option	"Show icon bar"
		Command ProcessKeys F12
EndMenu

unset z
unset handle
unset flags
